unit Pimp.Events;

interface

uses Pimp.Consts, Pimp.Base;

type
  TPIMPNotfyEvent = procedure; stdcall;

  TPIMPCustomEvent = class(TInterfacedObject, IPIMPEvents)
  private

  protected

  public
    { IPIMPEvents }
    procedure ConnectionFailed(); stdcall;
    procedure LoginSuccess(); stdcall;
    procedure LoginFailed(LoginFailedCode: Word); stdcall;
  end;

implementation

end.
